home *** CD-ROM | disk | FTP | other *** search
/ TeX 1995 July / TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO / macros / musictex / older-versions / musictex.504 / MUSICSTY.TEX < prev    next >
Text File  |  1994-01-01  |  4KB  |  124 lines
  1.  
  2. \edef\catcodeat{\the\catcode`\@}\catcode`\@=11
  3. \edef\catcode@gt{\the\catcode`\>}\catcode`\>=12
  4. \edef\catcode@lt{\the\catcode`\<}\catcode`\<=12
  5. %
  6. % non musical procedures used in typesetting the non-musical
  7. % texts together with musictex
  8. %
  9. % eight point fonts
  10. %
  11. \font\eightrm=\fonthdg\fonthdge r8
  12. \font\eighti=cmmi8 \skewchar\eighti='177
  13. \font\eightsy=cmsy8 \skewchar\eightsy='60
  14. \font\eightbf=\fonthdg\fonthdge bx8
  15. \font\eightsl=\fonthdg\fonthdge sl8
  16. \font\eightit=\fonthdg\fonthdge ti8
  17. \font\eighttt=\fonthdg\fonthdge tt8
  18. %
  19. % TWO DIFFERENT POINT SIZES
  20. % 
  21. \def\tenpoint{\Tenpoint}
  22. \def\Tenpoint{\normalbaselineskip=12pt
  23. \def\rm{\fam0\tenrm}%
  24. \def\it{\fam\itfam\tenit}%
  25. \def\sl{\fam\slfam\tensl}%
  26. \def\bf{\fam\bffam\tenbf}%
  27. \def\smc{\tenrm}%
  28. \def\mit{\fam 1}%
  29. \def\cal{\fam 2}%
  30. \textfont0=\tenrm   \scriptfont0=\eightrm   \scriptscriptfont0=\eightrm
  31. \textfont1=\teni    \scriptfont1=\eighti    \scriptscriptfont1=\eighti
  32. \textfont2=\tensy   \scriptfont2=\eightsy   \scriptscriptfont2=\eightsy
  33. \textfont3=\tenex   \scriptfont3=\tenex     \scriptscriptfont3=\tenex
  34. \textfont\itfam=\tenit
  35. \textfont\slfam=\tensl
  36. \textfont\bffam=\tenbf \scriptfont\bffam=\eightbf
  37. \scriptscriptfont\bffam=\eightbf
  38. \setbox\strutbox=\hbox{\vrule height 8.5pt depth 3.5pt width 0pt}%
  39. \def\tt{\tentt}\normalbaselines\rm}
  40. %
  41. \def\eightpoint{\Eightpoint}
  42. \def\Eightpoint{\normalbaselineskip=10pt
  43. \def\rm{\fam0\eightrm}%
  44. \def\it{\fam\itfam\eightit}%
  45. \def\sl{\fam\slfam\eightsl}%
  46. \def\bf{\fam\bffam\eightbf}%
  47. \def\mit{\fam 1}%
  48. \def\cal{\fam 2}%
  49. \textfont0=\eightrm   \scriptfont0=\eightrm   \scriptscriptfont0=\eightrm
  50. \textfont1=\eighti    \scriptfont1=\eighti    \scriptscriptfont1=\eighti
  51. \textfont2=\eightsy   \scriptfont2=\eightsy   \scriptscriptfont2=\eightsy
  52. \textfont3=\tenex   \scriptfont3=\tenex     \scriptscriptfont3=\tenex
  53. \textfont\itfam=\tenit
  54. \textfont\slfam=\eightsl
  55. \textfont\bffam=\eightbf \scriptfont\bffam=\eightbf
  56. \scriptscriptfont\bffam=\eightbf
  57. \setbox\strutbox=\hbox{\vrule height 7pt depth 3pt width 0pt}%
  58. \def\tt{\eighttt}\normalbaselines\rm}
  59. %
  60. %  GENERAL FOOTNOTES
  61. %
  62. \newcount\footmarkcount
  63. \footmarkcount=0\relax
  64. \def\resetfootnote{\global\footmarkcount=0\relax}
  65. %
  66. \def\footmarknumber{\raise 0.8ex\hbox{\eightpoint\rm\the\footmarkcount}}
  67. %
  68. \def\Footnote#1{\global\advance\footmarkcount by 1\relax
  69. \footnote{\footmarknumber}{#1}}%
  70. %\check
  71. % \TeX book footnote
  72. %
  73. % En cas de panique: couper en deux (une seule note autorisee)
  74. %
  75. \def\markfootnote{{\advance\footmarkcount by 1\relax\footmarknumber}}
  76. %
  77. \def\realfootnote#1{\global\advance\footmarkcount by 1\relax
  78. \vfootnote{{\footmarknumber}#1}}%
  79. %
  80. \def\footnotehsize{}% to enable inserting different \hsize (two columns case)
  81. \def\vfootnote#1{\insert\footins\bgroup\parskip \z@\eightpoint
  82.  \interlinepenalty=\interfootnotelinepenalty
  83.  \splittopskip=\ht\strutbox \advance\splittopskip by 1pt
  84.  \splitmaxdepth=\dp\strutbox \floatingpenalty=20000
  85.  \leftskip=\z@ \rightskip=\z@
  86.  \spaceskip \z@ \xspaceskip \z@
  87.  \eightpoint\footnotehsize\noindent{#1}\footstrut\futurelet\next\fo@t}
  88. %
  89. %\check
  90. %
  91. \def\footnoterule{\vskip-3pt
  92.   \hrule width 2truein \vskip 2.6pt } % the \hrule is .4pt high
  93. %
  94. %
  95. \def\aujourdhui{\space\number\day\space\ifcase\month\or
  96. janvier\or f\'evrier\or mars\or avril\or
  97. mai\or juin\or juillet\or ao\^ut\or septembre\or
  98. octobre\or novembre\or d\'ecembre\fi
  99. \space\number\year}
  100. \def\today{\space\ifcase\month\or
  101. January\or February\or March\or April\or
  102. May\or June\or July\or August\or September\or
  103. October\or November\or December\fi
  104. \space\number\day,\space\number\year}
  105. \def\boxit#1{\vbox{\hrule\hbox{\vrule\kern3pt
  106.     \vbox{\kern3pt#1\kern3pt}\kern3pt\vrule}\hrule}}
  107. \def\cenboxit#1{\centerline{\hbox{\boxit{#1}}}}
  108. \def\Item{\medskip\item}
  109. %
  110. \def\nologo{}
  111. %
  112. \def\umero{\raise 0.8ex\hbox{\kern-0.05em\the\scriptfont\fam o}}
  113.  
  114. \hoffset=-1.54cm
  115. \voffset=-1.54cm
  116.  
  117. \catcode`\>=\catcode@gt
  118. \catcode`\<=\catcode@lt
  119. \catcode`\@=\catcodeat
  120.  
  121. \hsize=185mm
  122. \vsize=264mm
  123.  
  124.